# ======================================================================
#
# Copyright (C) ADN
# ADN::CONF::Path Path.pm
# Description:
#  - Renvoie du path + fichier si fichier trouvé dans la variable d'environnement PATH
#  - Return the Path 
#
# ======================================================================

package ADN::CONF::Path;

use strict;

# #######################
# SEARCH ENVIRONEMENT PATH VARIABLE
# #######################
sub new
{
	my $self = shift;
	my $class = ref($self) || $self;
	return $self if ref $self;
	$self = bless {} => $class;
	my @PATH;
	if ( defined $_[0] ) {
	  	if ( $^O eq 'MSWin32') {
    			@PATH = split /;/sxm, $ENV{PATH};
   		}
		elsif ( $^O eq 'linux' || $^O eq 'darwin' ) {
	               	@PATH = split /:/sxm, $ENV{PATH};
		}
		foreach my $path ( @PATH ) {
      			if ( -f ( "$path/$_[0]" ) && -e ( "$path/$_[0]" ) && -r ( "$path/$_[0]" ) ) {
        			return ( "$path/$_[0]" );
      			}
   		}
  	}
		return;
}
1;
__END__
